unit DbCustom;

interface

uses Controls, DB;

type
  TUserOperation = (uoNull, uoFormView, uoTabsheetView, uoTableRowAppend,
    uoTableRowEdit, uoTableRowDelete, uoTableRowTrace, uoTableRowRetrace);

function CheckConnect: boolean;
function CheckUserPermission(FormClassName, TabsheetName, RoleName: string;
  Operation: TUserOperation): boolean;

procedure FieldLink(AField: TField; AControl: TWinControl);

implementation

function CheckConnect: boolean;
begin
  Result := True;
end;

function CheckUserPermission(FormClassName, TabsheetName, RoleName: string;
  Operation: TUserOperation): boolean;
begin
  Result := True;
end;

procedure FieldLink(AField: TField; AControl: TWinControl);
begin
  //
end;

end.
